(* ===================================================================== *)
(** Debut d'un travail sur bopbdd : production de la liste brute de mux 
  @author Ana Todorova, Mathieu Barbin *)
(* ===================================================================== *)

open Bplib
open Bopbddtools

(* ===================================================================== *)
(** Lecture des arguments systemes *)
(* ===================================================================== *)
let args_assoc = assoc_of_sys_argv Sys.argv
let get_arg_int_value = try_get_arg_int_value args_assoc
let get_arg_string_value = try_get_arg_string_value args_assoc
(* ===================================================================== *)


(* Appel principal *)
let _ =
  let adresse = get_arg_int_value "-AD" in
  let word = get_arg_int_value "-WL" in
  let file = get_arg_string_value "-f" in
  print_raw_list_of_file print_string adresse word file;
  Printf.fprintf stderr "Processor time used : %f\n" (Sys.time ());
  flush stderr
  
